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Beste leden, 


Traditiegetrouw komt het eerste nummer van onze 
nieuwe jaargang wat later in uw bus vallen. 
Spelbreker was deze keer een foutief'banknummer in 
onze vorige publicatie. De juiste gegevens vindt U 

op pagina 4. 

Vanwege het enorme aanbod aan materiaal was de se-. 

lectie van de artikels deze keer niet eenvoudig. 

Wij vragen begrip voor deze (overigens kerngezonde) 

toestand: heeft U iets ingestuurd en vindt U dit nog 

niet terug in ons tijdschrift, dan komt uw bijdrage 
waarschijnlijk een volgende keer aan de beurt. Wij 
proberen telkens een evenwichtig nummer te brengen: 
bijdragen voor beginners, gevorderden, machinetaal- 
specialisten en al die andere activiteiten waarvoor 
een personal computer kan ingezet worden. 

INDATA laat met de beloofde realisaties op zich 

wachten. Gelukkig tellen we onder onze leden een aan- 

tal erg actieve mensen: we vermoeden dat de realisa- 
tie van Kenneth Gooswit wel eens zou kunnen: uit-- 
groeien tot een standaard periferie voor DAIpc. 

Indien de testen meevallen zal DAInamic deze disc- 

drives zeker supporteren, vooral omdat alle be- 

staande software meteen op dit, formaat. zal, ‚Künnen 

geleverd worden. Specificaties van KEN-BOS- vindt U 

op bladzijde 56-58. eu „& 

De volgende DAlnamic bijeenkomst gaat. door in 

TONGELSBOS (Bosstraat 2 3180 WESTERLO- BELGIE) 

op zaterdag 9 april 1983 van 10.00 tot 18.00 Hr. 

Op de agenda volgende activiteiten: 

* tweedehandsmarkt : iedereen mag te koop aanbieden 
> wat hij graag kwijt wil. 

ж tijdschriften-info : van de meeste computertijde 
schriften hebben we ondertussen een drietal 
jaargangen. Deze kunnen geraadpleegd worden, 
we hebben ook een paar copieerapparaten ge- 
huurd i.v.m. uitgaven die niet meer of moei- 
lijk te verkrijgen zijn. 

* demonstratie van 3-dimensionele beelden op DAI. 

Een realisatie van Jan Roelants, echt indruk- 
wekkend.(zie ook p.64 en vlgd.) 

* lezingen en demonstraties : deze worden ter plaat- 
se aangekondigd. А 

* iedereen mag zijn hard|software realisaties komen 
voorstellen, gelieve wet eerst contact te nemen 
i.v.m. de indeling v.d. beschikbare ruimte. 

* handelaars : we hebben een paar lokalen voorzien 
waar handelaars hun gamma kunnen voorstellen; 
geinteresseerden geliewWs. contact te nemen. 

Ünze vertaaldienst wordt gereorganigeerd : wij zoeken 

mensen die artikels en|of programma's kunnen vertalen 

Veel lees- en tikgenot, tot 9 april 

W.Hermans | 


‘We are arranging our translation service : 


“4 


` 


Westneerbeek feb. 1983 


Dear members, - 

As usual the first edition of our magazine is 

rather late. The reason of this is a wrong banc 

number in Newsletter 13. You will find the right 

information for subscription op page 4. 

The job of editing this issue was not easy : we re- 

ceive a lot of articles and programs. If you do not 

find your contribution in this issue, please don't 

be disappointed, there are a lot of magazines to come. 

We are very proud to announce the realisation of 

Kenneth Gooswit : Floppy-drives with all the specifi- 

cations we have been waiting for : random access, 

sequential access, very large capacity. More about 

KEN-DOS on page 56-59. 

On 9 april 1983, we have our next meeting. The place 

is : TONGELSBOS, Bosstraat 2 3180 WESTERLO-BELGIUM. 

The ‘meeting is open from 10.00 to 18.00 Hr. 

On the agenda of the meeting : >. 

* secondhand-bargain market : anybody can offer. 

hardware he wants to sell. | 

* magazine-info : from most of.the computermagazines, 

we have issues of the last 3 years. You can read 
these magazines. We also will hire a few copying 
machines for the magazines that are no more 
available from the editors. 

* demonstration of 3-dimensional pictures on DAI 
by Jan Roelants. You want believe it until you see 

this with your own eyes! See article and program 
in this issue on p. 64. 

* Lectures and demonstrations 
announced on the meeting. 

* everyone can bring his achine” to Show hard- and 
software realisations. Please contact us, in order 
to arrange the available space. 

* dealers : we reserve a few rooms for dealers to 
show their range of periferals fom DAIpc. 
dealers should contact us before march 15. 


: these will be 


please 


contact us if you can translate articles or programs. 
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We hope you enjoy newsletter 1%, 
see you on 9 april. 
W.Hermans 
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DAInamic subscription rates : 


Benelux : 900 Bfr 
Europe : 1000 Bfr 
Outside Europe : 1400 Bfr 
(Air Mail) 


Dainamic SUBSCRIPTIONS 
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3044 HAASRODE-BELGIUM 
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+ on Bancaccount nr 230-0045353-74 
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* * 
* NOW AVAILABLE : * 
* ——— O * 
* ACROBATES : a fascinating new game, + 
* totally in machine language, (over + 
* 7K of code). ONE/TWO PLAYER option, + 
* BONUS SCORE, MUSICAL TUNES ... * 
* * 
* PRICE : only 600 Bfr (750 on DCR) * 
x * 
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LEPSON _ —— ыы 
3415 KASHIWA ST., TORRANCE, CALIFORNIA 90505 
PHONE (213) 539-9140 TELEX 182412 


EXIT IMAGE GRAPHICS ON THE EPSON 


Bit image graphics allows the user to control each pin on 
the print head as the head moves across the paper. This powerful 
feature enables the printer to print pictures, plot graphs, or 
create special character sets. Unfortunately a number of users 
have not taken advantage of this capability due to a lack of 
understanding on how to implement this function. This paper 
provides a short explanation of the operation of bit image 
graphics on the Epson MX Printers. In order to understand the 
material covered in this article the reader should have at least 
a fundamental knowledge of how to program in Basic. In addition 
it would be helpful, but not mandatory, if the reader were to 
have some understanding of the base two binary number system and 
assembly language programming. 


Bit image graphics can be performed on the following 
Epson printers: 


MX-78 in normal density mode only 
MX-88 only with Graftrax option 
normal density mode and dual density modes 
MX-188 both modes 
мх ~ 92 ч ч 
The following program is а simple example of bit image 
graphics for you to try on your printer: 


THE READER WILL HAVE TO 
CONVERT THE PRINT COMMAND 
GIVEN IN THIS PROGRAM AND ALL 
OTHER EXAMPLES INTO THE 
PROPER SYNTAX FOR YOUR COMPUTER 
SYSTEM TO OUTPUT TO THE PRINTER 
CLPRINT, PRINT #238 , ETC). 


18 FOR 1=1 TO 5 

29 PRINT CHR$ (27); " Ке; СНК (8) 3CHR$ (8) š "ABEDEFGH";" TESTING "31 
38 NEXT І | ' ; : 

49 END 


NOTE: On some computer systems this program may not 
function correctly. This is due to software limits 
imposed by the Basic operating system. This problem will. 
be covered in more detail later. 


When the program has been entered and run 
the printer will print: 


TESTING 
TESTING 
TESTING 
TESTING 
TESTING 


x 
a 


اذا 
Uun.‏ 


a] ata] 


` 


By now most readers are asking where does the = I 
come from. CHR$(27) is the ASCII code for ESCAPE, "К" sets the 
printer into dot graphics mode, CHR$(B) is пі, CHR$(9) is n2. 
Combining nl and n2 defines the number of bit image characters 
to be sent to the printer. The total number of bytes to be sent 
is figured in the following example : 

: ni + (n2 + 256). » 


In the above program ni=8 and n2=@, thus 8+(256#9) =8. 
Had n2 = 1 then the printer would have been programed to receive 
8+ (256#1)=264 characters. In our example, the printer was 
programed to receive. 8 characters. 


Once the printer has been set into graphics mode, the next 
8 characters sent to the printer will be printed as bit 
graphics. The characters ABCDEFEN are now printed in bit 
image mode rather then as letters. 
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When the computer sends a character to the printer, it is 
sent as a binary number. The printer then converts the number 
into a predefined symbol. The ASCII code defines each binary 
number up to the value 127. Each of these numbers has a 
predefined function or printable symbol as shown in the ASCIT 
table in your Epson manual. This standard is followed by most 
computer and printer manufacturers. i 


When printing in bit image mode the printer does NOT 
print the letters sent to the printer, rather it prints 
the binary value of the ASCII code of the letter sent. The ASCII 
value of "A" is 65 decimal, 21909001 base 2. Compare the 
printed image with the ASCII table below. 


VALUE A B C D E F GH 
128 BIT 8 5 9 00 0 6 9 д top pin of the print 
64 BIT 7 1 1 1 1 1 1 1 1 head 
32 BIT & 9 6 о 9 оо 6 д 
16 BIT 5 5 9 66 9 6 9 9 
8 BIT 4 6 o 6 o б @ д 1 
4 BIT Š 9€ oS 1 1 1 1 9 
2 BIT 2 9 1 1 @ 80 1 1 Ø 
1 BIT 1 1 9 1 Ø 1 б 1 Ø bottom pin 


‘The Basic function CHR${___) should allow the computer 
to send any number to the printer. On many computers there are 
certain numbers that are not transmitted to the printer 
correctly. 


The TRS-89 Model I Computers will NOT run correctly on 
the above program. This is because the Model 1 cannot send a 
decimal Ø as shown in line 28 ( CHR$(8) ). Also the Model 1 can 
not send the decimal codes 12, 11, or 12 from the Basic 
CHR$( — ) command. 


The TRS-89 Model III cannot send decimal 19 or 12 from the 
Basic CHR$(___) command. 


The TRS-89 Color Computer cannot send any number above the 
value 127. 


Apple II cannot send a decimal 9 or 13 nor any other number 
from 128 to 255. A decimal 9 is stopped by the firmware in the 
interface card. A decimal 13 (a CR) is sent to the printer, 
however the firmware then sends a decimal 19 (a LF). Numbers 


above 127 are not sent due to firmware limits within the 
computer. 


Other computers MAY have some type of oddity in the 
operating system that stops a user from sending some numbers to 
the printer. Most problems occur in the control codes (numbers 
9 to 31). A few may have an upper limit on the numbers sent, 
like the Apple or the TRS Color Computer. Some experimentation 
will be necessary to determine your system's limits. 


A possible solution to the limits imposed by the system 
would be to write your own printer driver routine in assemply 
language, or use a short basic subprogram that talks to the 


‘printer port directly. The following subroutines MAY help to 
avoid problems: ` 


TRS—8Ø MODEL. I 
19 IF PEEK(14312) <> 63 THEN GOTO 19 :REM WAIT FOR PRINTER TO BE - 
READY 
20 POKE 14312,X :REM SEND THE VALUE X TO THE PRINTER 


38 IF PEEK(14312) <> 63 THEN GOTO 59 :REM SAME AS LINE 19 
40 RETURN 


TRS-6# MODEL III 
19 IF INP(251) <> 63 THEN GOTO 19 :REM INP(248) ALSO WORKS 
29 OUT 251,X :REM IF THAT DOES NOT WORK TRY OUT 248,X 


3@ IF INP(251) <> 63 THEN GOTO 39 :REM INP(248) ALSO WORKS 
49 RETURN 
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APPLE II WITH APPLESOFT BASIC 
WITH THE EPSON 8131 PARALLEL INTERFACE BOARD 
I do not know if this routine will work with other boards, 
if not, contact the manufacture of your board for PEEK and POKE 
locations. 


19 IF PEEK(49691) >127 GOTO 18 :REM WAIT FOR PRINTER TO BE READY 


29 POKE 49296, X :REM SEND X TO THE PRINTER 
50 IF PEEK(49681) >127 GOTO 39 :REM WAIT FOR PRINTER TO BE READY 
48 RETURN 

ATARI 


1 OPEN *1,8,9,"P:" 
18 PRINT 41; CHR$ O00; 
46 RETURN 


ALL OTHERS 
18(LPRINT CHR$(X); 
46 RETURN . 
This routine тау not solve many of the limits imposed by your 
system. See your computer manual for the address of your printer 
port. IBM users should add the following command: 
2 WIDTH "LPT1:",255 


The next step is to combine your subprogram with a main 
program for printing graphics. 


5 GOTO 100 
19 YOUR SYSTEM’S SUBROUTINE 
199 REM GRAPHICS PROGRAM 
185 PRINT CHR$(27);"K"3 :REM SENDS AN ESCAPE FOLLOWED BY А К 
119 LET X-690:GO08UB 19 :REM SEND ni 
129 LET X= @:GOSUB 10 :REM SEND n2 
136 REM nl + (256 * n2) = the total number of graphics 
characters the printer will be printing. 
146 FOR I= 1 TO 69 
159 LET X-65 :GOSUB 18 
169 NEXT I 
178 PRINT " X = "3X 
188 END 


This program will print two parallel lines as follows: 





nn X = 65 


Apple and TRS Color Computer owners will find that their 
system will not be able to send any number above 127 correctly. 
This problem is a firmware problem and cannot be corrected by 
any subroutine. i 


Some changes you might wish to try are: 


109 FOR X2 = 8 TO 255:REM FOR X2=8 TO 127 with the Apple or 
159 X=X2 : GOSUB 18 :REM the TRS Color Computer. 
175 NEXT X2 


This prints all possible combinations of graphics 
characters. When the program has been run a clear pattern 
will appear. To help the reader understand this pattern see the 
figure below: 


TOP 
PIN VALUE In this example VALUE is 
the pin number. 
PRINT + 128 
* 64 In selecting what pins to 
HEAD + 32 fire, add the values of the 
* 16 pins to be fired. 
se) * 8 . 
* 4 The pin on the bottom can not 
* 2 be addressed when in bit 
* 1 graphics mode. 
* not used 
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E 


8 then no pins will fire. 

1 then pin 1 will fire. 

2 then pin 2 will fire. 

3 then pins 1 and 2 will fire. 
4 then pin 4 will fire. 

S then pins 1 and 4 will fire. 
65 then pins 64 and 1 will fire. 


2> x< X >x X >x >< 


in order to get all B pins to fire X must = 255. 


255 = pin 128 + pin 64 + pin 32 + pin 16 + pin В + pin 4 + pin 2 


+ pin 1 


When you want to draw a shape, the shape must be broken 


into numbers. 


PIN 
128 


64 
32 
16 
8 
4 
2 
1 


On a sheet of graph paper I’ve 
drawn a box. When broken into 


fet EE et tae numbers, column one’s number is 
fet o 0 E 6 чаи! 64+32+16+8+4+2=126. Columns 2 
кюе! tow се nen through 6 add up to 64*2-66. 
VE ART NAT i Column 7 adds up the same as 
ie 22 25 SE SE 22 ae tet column 1. 
Mee enb вова та 
CCCCCCC Thus the data for this drawing is 
60000000 
LLL L LLL DATA 126,66, 66, 64, 66, 66, 126 
1234567 


To draw this shape add the subroutine for your 


computer in the first part of this section to the program below. 


5 
1@ 


46 
199 
195 
119 
129 
139 
149 
159 
169 
176 
189 
190 


GOTO 100 

YOUR SUBROUTINE 
RETURN 

REM PRINT A SHAPE 
PRINT CHR$(272;"K"j 
X=7 :GOSUB 19 

X=@ :GOSUB 19 

FOR I = 1 TO 7 
READ X 

GOSUB 10 

NEXT I 

PRINT 

DATA 126, 66, bb, bb, bb, 66,126 
END 


When this program is run, it will print: D 


By changing line 189 you can change the shape printed. 


PIN 
128 


64 
32 
16 
8 
4 
2 
1 


soy tls 1 i rr This shape becomes the following 
„к wt has est numbers: 

жии 

17171 s tet 1! 189 DATA 8,8,8,8, 28, 34,65 
ГИ 

ааа Our new shape will look 
(aca r i cT like this : < 

Qa a a adoret 

1234567 
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The syntax for entering graphics is: 
| ESC K + ni + n2 
In basic this becomes: PRINT CHR$ (27) 3 "K"3 CHR$ (n1) JCHR$ (n2) 3 


Line 195 of our program sends the ESC K, line 119 sends ni, 
and line 129 sends n2. For beginners it iw best to use a range 
Of 1 to 255 for n1 (On an APPLE II use 1 TO 127) and set n2 
to @. A beginner is less likely to have problems or crash his 
program if shorter lengths are used. 


Graphics using ESC K is called normal-density bit image 
graphics. Using ESC L gives dual-density bit image graphics. 
The ESC L command packs more dots per inch in the horizontal 
dirrection (128 dots/inch compared to 69 dots/inch). This causes 
the figure to become compressed. To see the effect, change line 
105 as follows: . 


185 PRINT СНКФ (27); "L "j 
O becomes 0 and 
< becomes <. 


In the dual-density mode, the printer can print a form of 
emphasized graphics. Make the following changes to this demo 
program: i А 


195 PRINT СНАФ (27): "L"; 
118 X-14 :GOSUB 19 
155 GOSUB 19 


Line 195 puts the printer in a dual-density mode, lines 110 
and 128 program the printer to receive 14 graphic characters. 
Lines 159 and 155 together will print the same graphics 
character twice. The program originally had 7 characters to the 
image. With the changes made, the 7 characters were printed 
twice resulting in a total of 14 graphics characters being 
printed (see line 119), 


O becomes O and 
< becomes <. 


For practice try taking a sheet of graph paper, draw your 
own shapes, and put the shape into numbers in a DATA statement. 
Remember, each number controls one column and the program given 
uses seven colums. When you understand how to draw a shape try 
expanding on this program and converting it to print 29 columns. 


When printing bit-image graphics, a single number controls 
8 rows in one column. This type of printing is useful for your 
own character set (such as Greek), but is somewhat limited for 
doing drawings or logos on a printout. The solution to this 
problem is to print the image in several passes. Thus if you 
were printing a drawing in three sections, you would print the 
top first, then the middle, and the bottom last. One additional 
command that must be given to the printer is to change the line 
feed spacing so that there will be no gaps between the passes. 


The command in basic is: 


ESC A +n 
PRINT CHRS (27) 3 "А"; СНАФ (7) 3: REM FOR APPLE AND COLOR COMPUTERS 
PRINT CHRS (27) 3 "A"ICHRS (BI 3 : REM ALL OTHERS 


Once you are done printing graphics remember to restore the 
printer to the normal line spacing with the command: 


PRINT СНАФ (27) 3 "A"SCHRS (12) 3 
or PRINT CHR$(27);*2*; 


The following program prints a simple bar chart in bit 
image mode. This Program was written for an Apple II computer, 
however, with a few minor changes, the program can be made to 
work on other systems. Such changes are: Delete lines 1 and 449 
(PR#1 and PR## turn the printer on and off for the Apple). 
Place the subroutine for your computer at lines 19 through 49. 
All PRINT commands should be changed to LPRINT , PRINT #2 ‚or 
whatever your system uses to talk to the printer. 


To change the bars in the graph, change lines 6909 to 638 
to reflect the data you wish to plot. Another change you might 
wish to make is to add a routine to change the scale of your 
Program to match your data. 
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This program takes about 12 minutes to run on the Apple 11, 
I know of no way to speed it up, other than compiling it or 
rewriting it in machine code. 


1 PR# 1 
2 PRINT : PRINT : PRINT 
5 GOTO 300 
8 REM PRINTER DRIVER ROUTINE 
19 IF PEEK (496981) > 127 GOTO 19 
20 POKE 49296,X f 
38 IF PEEK (49601) > 127 GOTO 39 
4@ RETURN 
45 REM PRINT ARRAY P(I+K) 
59 PRINT " "3 CHRS (27) "К"; 
69 X = 127: GOSUB 19 
70 X = 1: GOSUB 19 
89 FOR I = 1 TO 383:X = P(I + K): GOSUB 19: NEXT I 
99 PRINT : RETURN А 
95 REM PUT IN THE VERTICAL LINES EVERY 32 BYTES. 
100 FOR I = 1 TO 383:P(I + K) = @: NEXT I 
118 FOR I = 1 TO 383 STEP 32:P(I + K) = 126: NEXT I 
120 P(383 + K) = 126: RETURN 
195 REM PRESET ARRAY TO L AND PRINT 
209 FOR І = 1 TO 383:P(I + K) = L: NEXT I 
219 PRINT " — "š: GOSUB 59 
223 RETURN = 
399 REM BAR CHART (MAIN PROGRAM) 
318  GOSUB 598 
328 FOR Q = 1 TO 12 
338 K = 383: PRINT " "3: GOSUB 58 
349 PRINT M$(Q)3" “3:k = Ø: GOSUB 199 
358 V = A(D: IF V > 383 THEN V = 383 
365 FOR I = 1 TO V:P(I) = 126: NEXT I 
378 GOSUB 58 
388 К = 383: PRINT " “3: GOSUB 58 
396 NEXT Q 
499 REM DRAW LAST LINE AND FINISH 
419 L = 64:K = 383: GOSUB 206 
420 PRINT CHR$ (27)3"2" 
438 PRINT : PRINT : PRINT 
446 PRE Ø 
458 END 
588 REM SETUP ARRAYS 
510 DIM P(766),A(12) , M$(12) 
528 PRINT "MONTH SALES" 
S38 PRINT 'CHR$ (27)3"A"3 CHR$ (6) 
540 L = 2:K = 383: GOSUB 200 
999. FOR I = 1 TO 12: READ M$(I),A(I): NEXT I 
566  GOSUB 199 
579 RETURN 
690 DATA "ЈАМ№", 79, "FEB", 129, "MAR", 189 
616 DATA "АРВ", 210, "MAY", 145, "JUN", 259 
620 DATA "JUL", 299, "AUG", 319, "SEP", 299 
656 DATA “OCT",339, "NOV", 389, "DEC", 349 


For those of you who would like this program to print the 
chart in a darker print, add the following changes: 


3 PRINT CHRS (27)3"E°; 

59 PRINT " “3 СНК (27);5"L"; 

60 X = 0: GOSUB 19 | 

79 X = 3: GOSUB 19 i 

89 FOR I = 1 TO 383:X = P(I + K): GOSUB 12: GOSUB 19: NEXT I 
85 X=@ : GOSUB 1@ : GOSUB 19 


The changes listed will slow down the-program by a factor of 
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LINES 1@-4@ Are the subroutine listed for your computer. 

LINES 58-99 Send the array P(I+K) to the printer. If K is 
set to 2, the first 383 bytes of the array go to the printer. If 
Kis set to 383, the last 393 bytes of the array go to the 
printer. 


LINES 199-120 Place the vertical lines for our plot inside 
the array P (I+K). 


LINES 296-229 Preset the array P(I+K) to the number L and 
when the array is preset, it is printed. 


LINES 389-398 Are the main part of the program that 
prints the plot by calling the necessary subroutines. 


LINES 499-458 Finish the program by drawing the last line 
in the plot and return line feeds to normal. 


LINES 599-578 Setup the arrays, change line feeds to 4/72 
of an inch, and setup to print the top line of the plot. 


LINES 699-639 Contain the data for our plot. 

ARRAY P(I+K) Is where the graphics data is stored before it 
is printed. If K = 9 » the first 383 bytes of the array are 
used. If K = 383 , the last 383 bytes of the array are used 


ARRAY A(D) Stores the numbers for the length of the bars on 
the graph. 


ARRAY M$(Q) Contains the names of the months in our chart. 


X Is the number sent direct to the printer. 


= 


Is used in the FOR — NEXT loops. 
Selects what half of the array P(I+K) is used. 


Used for preseting the array P(I+K) to a value. 


p mr R 


Another variable used in a FQR — NEXT loop. 

V Used in a FOR — NEXT loop to set the data in the array 
P(I+K) to the length of the bar. 

Changing the scale of the chart is easy, the only change 
that needs to be made is at line 550. Thus line 359 becomes: 
358 V=A(Q)#384/scale : IF V > 383 THEN V = 585 


Some values for scale are: 


scale each division becomes 


128 19 
249 29 
388 25 
689 3e 
1200 100 
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Ebor Ce ee ee Ке чүл 


OTHER INFORMATION 


An interesting trick that can be used to print special 
characters from a basic program is as follows: 


100 PS=CHRS (27) +"K°+CHRS (6) +CHRS (B) +CHRS (32) *CHR$ (62) + 
CHR$ (32) +CHRS (62) +CHRS (32) +CHRS (9) 

119 REM This puts the character Pi in P$. 

129 LPRINT P$3" = 3.141592634..." 

139 LPRINT P$3" R ^2 XL = 2"3P$3 "FL" 


P$ will print out as Pi in this program. 
P$ = т 


THIS TRICK WILL NOT WORK ON THE 
TRS-83 MODEL. I. THE MODEL I CAN 
NOT SEND A CHRS CZ) THROUGH THE 
OPERATING SYSTEM. 


As for the other systems, when you use this trick, make sure you 
do not try to send a number through the CHR$ function that your 
system can not pass. 


A solution to this problem is a simple subroutine as 
follows: 


5 GOTO 199 
10 YOUR SYSTEM'S SUBROUTINE 


50 FOR I=1 TO LEN(A$) 

69 X-ASC(MID$ (4$,1,1)) 

78 GOSUB 19 

88 NEXT I 

99 RETURN 

100 PS=CHRS (27) +"K"+CHRS (6) +CHR$ (0) +CHRS (32) «CHR$ (62) + 
CHR$ (32) +CHR$ (62) *CHR$ (32) +CHRS (0) 

119 REM Print P$ 

128 AS=P$ : GOSUB 50 

138 LPRINT " = 3.141592634..." 

149 END 


m = 5.141592634 ... 


A few final warnings about printing graphics. Some systems 
add a carriage return/line feed after 89, 127, 128, 132, 255, or 
256 characters have been printed (the number depends on the 
operating system). If your system does that, you will find a 
small gap in your graphics printout. Should that occur either 
limit the length of your drawings or bypass your operating 
system in the computer. 


For example you would see: 








— 
Or something similar to that. 


Once the printer has been programed to receive a number of 
graphics characters, sending too few will make it appear as if 
the printer did not receive them. When the program is rerun 
several times the printer may start to print subsequent drawings 
on the same line. Sending more characters than the printer was 
programed for may put what looks like garbage at the end of the 
line. One thing to watch out for is if your Basic is adding or 
removing any data. 


When printing long lines above 249 characters (89 ' 
characters on the МХ-70), Basic’s slow speed will cause the 
printer’s buffer to fill, then stop, and print the first part of 
the line. Next the program will continue, home the head, and 
print the rest of the line, THIS IS NORMAL. 
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Printing graphics from a machine code program is desirible 
for 2 reasons. 
(1) It runs faster. . 
(2) If it is written correctly you can bypass the 
computer*s operating system and have less problems. 


Machine language programs can print long lines in one pass 
if the program is operating fast enough (Basic takes several 
passes)j however proper timing is critical. if the machine code 
program cannot meet the critical timing some data may be lost 
when the buffer fills. If you think that timing might be the 
source of your problem, try adding a short time delay to your 
assembly program to see if the missing data returns when using a 
delay. 


Trying to set.up for more graphics characters than would 
normally fit on a line may cause the printer to enter an error 
condition. 


It is best to print all your graphics with one programed 
setup per line; however this is not always possible. If you do 
not want a space between each setup, make your first setup a 
multiple of 6 if using ESC K, or a multiple of 12 if using 
ESC L. : 


Some practice and experimentation with the printer’s graphics 
are required to obtian it's maximun capabilities, which are 
almost unlimited. The time spent in this effort will be amply 
repaid in terms of understanding and ease of operation. 


CATALOG 


ACROBATES by Jan van Rijsselberg audio: 600 Bfr 
DER : 750 Bfr 


SPL by SPHINX audio:1100 Bfr 
DCR :1250 Bfr 


DIDAISOFT-tapes (only in dutch for the moment): 


1/ Talentape 1 (8 progr.) audio: 


DCR 
2/ Familiebudget audio 
DCR 
3/ Grafische Hulp audio 
DCR 
4/ Wiskunde 3 (7 progr.) audio 
DCR 
5/ Fysica (6 progr.) audio 
DCR 


HARDWARE 


DCE-interface card: call for prices 
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THE "IF .... THEN .... ELSE ...." STATEMENT 


In higher programming languages, the "IF — THEN — ELSE* statement i 
possible. But did you know it can also be used in the DAI Basic 7 
Not in the style “IF — THEN — ELSE’, but via a special use of the 
"IF — GOTO’ statement ! 

This article describes how to do it. 


ifl 


Try the following examples: 


i0 IF A=1 GOTO 3G: GOTO 40 
20 PRINT "26°, 
30 PRINT "30", 
40 PRINT "40" 


A RUN of this program prints:°30, 40° if A=1 and: "^40" if A <> i. 
Line 20 is never executed ! 


Try the following example: 


10 IF ё=1 GOTO 30: PRINT "TEST" 
20 PRINT "20", 
30 PRINT "30", 
40 PRINT "40" 


This results ins ^30, 40" if A=1, and: “TEST, 20, 30, 407 if ñ <> 1. 


The same results are obtained if in line 10 is written: 
10 IF A=1 THEN 30: ........ 


You see, with "IF ~ GOTO <linenr?>: GOTO Slinenr> an "IF — THEN — ELSE" 
statement can be simulated ! 

But only if the first statement is an "IF ~ GOTO <11пепк >” or an "IF — 
THEN <linenr> statement ! 


The reason for this behaviour of the DAI is the way the "IF — GOTO" 
statement is executed. 

The run-time routine can be found on address DF15. The logical 
expression ( А=1 ) is evaluated. The result of the evaluation is in 
accumulator A. If the condition is true (0 56-1 >, the program jumps 
to the new linenumber via DF63. 

If the condition is mot true { А51 }, the pointer in the textbuffer 
- the registers BC — is moved untill after the linenumber in the 
first “GOTO? statement. There it finds the second "ОПТИ" statement, 
which is performed accordingly ! 


Still one remark: Be very carefull in using this ‘IF — THEN — ELSE 
construction. Use it only in the form: 


IF “logical expr? GOTO <1іпеги >: GOTO zlinenr- 


Then you can be sure that you do not create other problems in your 
programs. 


© ~ dan Boerrigter — Dec. 1982 
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>PROGRAMMEER - ТЕСНМІЕКЕМ< < есе 4 





Ik wil in dit artikel eens ingaan op het programmeren van een programma. Dp het 
eerste gezicht een misschien wat vreemd onderwerp: iedereen die een DAI bezit 
zal toch regelmatig programma's schrijven. Wat aanwijzingen om bepaalde zaken 
op een of andere manier aan te pakken -accoord- maar het programmeren zelf dat 
is een ieder wel duidelijk. 

Jammer genoeg moeten we vaststellen (aan de hand van de inzendingen) dat juist 
het opzetten en vooral uitwerken van programma’s en programma-ideeen vaak nog 
wat te wensen overlaat. 











“Hoe zou de aanpak dan moeten zijn ?" zult U zich misschien afvragen. Er is 
echter geen standaardaanpak die voor alle programma’s gebruikt kan worden. 
We moeten ons ten eerste afvragen wat wij met het programma willen doen.Pas als 
we daarop een zinvol antwoord kunnen geven heeft het zin om over een aanpak te 
gaan nadenken. 













We gaan in gedachten eens na wat we (zouden) moeten doen voordat we achter het 
toetsenbord gaan zitten. Ik pretendeer echt niet alle relevante zaken nu aan de 
orde te laten komen, maar denk wel dat bij de overwegingen die ik zal bespreken 
er vele zullen zijn die vaak vergeten worden, Ook is het mogelijk dat men pas 
later aan bepaalde aspecten denkt zodat achteraf veel reparatiewerk nodig is. 
Goed, we hebben een idee voor een programma.Er zijn verschillende mogelijkheden 












1) pragramma zelf verzonnen 
- we moeten alles zelf doen 
+ we kunnen alles zelf doen 
2) programma zien werken op ander toestel 
- we proberen misschien iets waar de DAI minder geschikt voor is 
+ we kunnen werk van oorspronkelijke maker gebruiken 
3) we hebben de listing van het programma maar wel voor ander toestel 
- we proberen misschien iets waar de DAI minder geschikt voor is 
- we zitten vast aan de denktrant van een andere programmeur dit betekent 
bijna altijd dat wij een minder goed programma maken als mogelijk zou 
zijn, omdat die ander rekening houdt met zijn machine en niet met onze 
= programma’s uit de basicode (hobbyscoap) hebben niet de beperkingen van 
een machine maar van alle. 
* niemand kan u beschuldigen van originaliteit 












Yoor zover uit bovenstaande nog niet duidelijk: ik wil graag volledig zelfge- 
maakte programma’s. Alleen dan is er een mogelijkheid dat er inderdaad program- 
ma's ontstaan die de mogelijkheden van de DAI ten volle benutten. an 

Dat u een leuk goed werkend programma van een andere machine ook op u eigen DAI 
wilt hebben is uw goed recht, maar kijk dan niet in de listing!!! Heus het komt 
het programma alleen maar ten goede. 








De volgende fase in onze programmeergang is eens goed na te denken over o.a. de 
volgende zaken: 

1) Voor wie is het programma bedoeld ? " 
2) Wil ik het programma ook in de toekomst nog gebruiken ? 

3) Wil ik het programma of delen ervan later in andere programma's gebruiken 7 
4) Is het nodig dat anderen de werking van ті jn programma begrijpen ? 

9) Is het nodig/wenseli jk mi jn programma’s een eigen signatuur te geven ? 

6) Is uitleg voor gebruik van programma nodig ? 

7) Zijn varibelen in floating-point of integer nodig ? 

8) Hoe snel moet programma klaar zi jn 

7) Hoe groot maet de snelheid van het programma zijn 7 

enz.,enz,enz..... 





















Op de hier genoemde punten wil ik wat nader ingaan. 
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ad 1: Maakt u een programma enkel en alleen voor uzelf (dus cok geen vrienden 
en kennissen) en bent u niet van plan het programma vaker te gebruiken dan is 


uitleg of programmeerduidelijkheid overbodig. Mijn ervaring is dat op een enkel 
rekenprogramma na geen enkel programma aan deze eisen voldoet, 


ad 2: Als u een programma later wilt gebruiken is een minimale uitleg een ver- 
eiste, Zelfs het eenvoudigste rekenprogramma is onduidelijk als het na RUN al- 
leen een "?" geeft bij de invoervraag.Zet ook in het begin van het programma 
een datum en als modern mens (wat doet u anders met een computer) doe dat dan 
in de SI-vorm (In vele landen verplicht maar zelfs overheden zelf houden zich 
er niet aan) N.H. de SI-vorm is jaar-maand-dag voorbeeld 19920514 

Een andere mogelijkheid is maand’ jaar. 


ad 3: Als u hier rekening mee wilt houden zult u modulair moeten programmeren, 
Later hierover meer. 


ad 4: Een must voor docenten computerkunde (zoals ik), maar ook als u bepaalde 
pragrammeertrucs heeft verwerkt in ingzonden programma’s is het prettig als an- 
deren uw idee ook kunnen verwerken, 


ad 5: Alleen als u dat zelf leuk vindt of als u commerciele bedoelingen hebt 
met uw programma. Leuk is het echter wel. Zerg er dan echter wel voor dat dit 
persoonlijke stempel aangenaam voor anderen is. 
Sommige inzenders menen hun programma’s herkenbaar te moeten maken door bv een 
aanslag te doen op mijn beeldbuis resp ogen en oren. 
Zaken waar ik mij bv aan erger: 
het beeld van een kader voorzien door: 
FOR I-O TO lO:d=i-d:FILL I I XMAX-I,YMAX-I 19XJ:NEXT 
kleuren zodanig gekozen dat op een andere machine een onleesbar geheel ont- 
staat terwijl het niet simpel is te verhelpen door een KLi-.. of COLORT resp 
COLORG. 
geluid bij "angeluk" in programma niet af te zetten door gebruiker. 
en nog vele maar daar zal ik u nu niet mee vervelen. (mogelijk in toekomst wel) 


ad 6: Kleine uitleg bijna altijd gewenst, Hoe meer een programma voor gebruik 
door anderen ~ zeker als die anderen niet programmeren — gemaakt wordt hoe be- 
langrijker de uitleg wordt. Frobeer deze uitleg altijd zo duidelijk mogelijk te 
krijgen. Een ander kan dit meestal beter dan uzelf testen. Een niet programme- 
rende en ook op de DAI geen ervaring hebbende kennis is hiervoor ideaal. 
Voorbeeld : goede testers weten niet dat zij na een antwoord ook de returntoets 
под moeten indrukken.Of dat zij voor RUM eerst MODE © hadden moeten intikken. 
Geef uitleg eens door bij een spel bv een stuk voor te doen of zet uitgebreid- 
de uitleg in een apart programma. Dit laatste scheelt inlsesti jd en geheugen 


ad 7: Indexen van array’s nooit met floating-point.Qok de cursor- en teken- op- 
drachten hebben nooit iets anders dan integers nadig. 
Vele FOR-NEXT loops kunnen ook in integers. 


ad 8: Als grote snelheid gewenst is; dan niet te veel naar uiterlijk van het 
programma кі јкеп. Gebruik veel standaardroutines.Zorg als dit regelmatig gebeurt 
dat er een bibliotheek met zulke routines is waar u gebruik van kunt maken. 


ad 9: Als de snelheid van het programma van belang is voorlopig een paar tips: 
werk zoveel mogelijk in integers 

test verschillende mogelijkheden van programmeren 

zet het de snelheid het meest beinvloedende deel vooraan in het programma 
schrijf gedeeltes van programma in machinetaal of vraag indin u dit (noq) niet 
kunt iemand anders dat voor u te doen, 
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Ik wil dit met een voorbeeld uit mijn eigen ervaring illustreren. 


Als wiskundedocent had ik eens een lijst met gehele getallen nodig, die in 
groepjes van drie zouden voldoen als lengtes van zijden van een rechthoekige 
driehoek. (zgn pythagoreische getallen) І 

Ik wilde deze lijst gebruiken bij het samenstellen van een repetitie over de 
stelling van Fythagoras.Het is voor de leerlingen prettig als de uitkomsten ge- 
hele getallen zijn: getallen die ik wilde hebben zijn bv drie,vier,vijf omdat 
3^2 +472 = 5^2. Andere bekende combinaties zijn 5,12,13 en 8,15,17. 

Alle drie de getallen dus geheel en kleiner dan honderd. 

Voor dit programma had ik alleen maar rekening te houden met het correct zijn 
van de antwoorden en de tijd waarin het programma klaar is. Met dit laatste be- 
doel ik de tijd die ik nodig had om het programma te schrijven en niet de ti jd 
die het programma aan het rekenen is. (Als U zich wilt laten uitdagen ik had 
binnen een kwartier alle mogelijkheden onder de honderd op papier) 

Ik hoefde in dit geval geen rekening te houden met anderen die mijn programma 
zouden willen gebruiken en ook niet met leesbaarheid en/of aanpassingen. 

Dit geldt voor veel programma's maar vrijwel nooit voor programma's die geschre- 


ven warden voor gebruik door anderen. 
Een niet altijd haalbaar ideaal zou het volgende hoofdprogramma kunnen zijn: 


10 REM REIS OM DE WERELD / COPYRIGHT Demaeker jan-83 
20 GÜSUB 8090: КЕМ Aankondiging en Inlezen data-i 

30 GOSUB 7000: КЕМ Uitleg en Inlezen data-2 

40 GOSUB 5000: КЕМ Initialisatie en Inlezen data-3 

30 GOSUR 1000: REM Programma 

60 PRINT "NOG EEN KEER SPATIEBALE" 

70 H=GETC:IF H=0 GOTO 70:1F H=32 GOTO 45 

go END 


Vanuit de subroutines 8000,7000 en 6000 wordt steeds de subroutine voor het in- 
lezen van de data aangeraepen. Dit is iets wat slechts weinig programmeurs doen 
en dat is jammer. De gebruiker van een programma zit eerst naar een fraaie aan- 
kondiging van een programma te kijken en vervolgens de uitleg te lezen, de com- 
puter doet al die tijd niets dan wachten. Pas als de gebruiker het teken heeft 
gegeven dat hij klaar is met lezen (meestal spatiebalk) worden data ingelezen. 
Dan kan de gebruiker weer wachten. Een veel prettiger methode is het inlezen 
van data en/of opbouwen van tabellen te laten plaatsvinden tijdens de aankon- 
diging en uitleg.0f lees de data in arrayvorm in, bv tijdens uitleg. 

Daar de snelheid van de GOTO's en GÜSUB's beinvloed wordt door de plaats van de 
regel in het programma is het zinvol de volgorde te kiezen uit het voorbeeld. 
Voor alle duidelijkheid niet de getalwaarde van de regelnummers is van belang 
maar wel de plaats in de listing. Dit komt omdat de DAI als volgt reageert op 
een 607010900: 1-haal eerste regelnummer uit listing: 

Z-is dit 1000? ja ga daar verder en nee zoek lengte deze regel en bereken dan 
plaats volgende regel.ga terug naar 2. 


We hebben hier een fraai voorbeeld van mudulair programmeren. Het programma is 
met duidelijk herkenbare stukken geschreven, in dit geval in de subroutinevorm. 
Deze programmeeraanpak is in bijna alle gevallen goed. We zetten de voordelen 
even op een rii: 

Onderdelen gemakkelijk te herkennen. Iemand die bv de aankondiging erg mooi 
vindt kan deze met aangepaste tekst zelf ook gebruiken. 

Onderdelen gemakkelijk te vervangen door andere (betere) versies. 

Onderdelen gemakkelijk in aangepaste vorm in andere programma's te gebruiken 
Bij te lage snelheid op simpele wijze een basic-subroutineaanroep te vervange 
door een CALLM. 
Programma leesbaar en overzichtelijk, 
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| Maar eerlijk is eerlijk nadelen zijn er ook. 

| Het programma zal nooit absolute topsnelheid halen. f 

Het programma is iets groter en zou in zeer extreme gevallen net niet meer in 
het geheugen passen. ; 


| Tot slot wil ik nog wat filosoferen over de beste manier om een programma te 
beginnen. Een ooit eens oa door mij aanbevolen begin is: 10 MODEO: 7СНЕФ (12) 

dit omdat veel programma’s in de begintijd begonnen zonder eerst een schoan 
beeld te maken en/of niet eerst in tekstmode kwamen. 

‘Later hebben we ingezien dat hier soms nadelen aan kleven; een extreem groot 
programma dat in model of 2 loopt geeft OUT OF MEMORY na de MODEO. 

De ?CHR$(12) heeft twee nadelen. Als na deze opdracht het gehele scherm wordt 
vol gescheven zal bij de laatste regel het beeld hinderlijk opschuiven: de re- 
| medie is simpel :?CHR#(12); . We kunnen echter ook OUT OF STRING SPACE krijgen 
als we een CLEAR4 hadden. U zult zich misschien afvragen waarom iemand zo’n 
opdracht geeft; bv om de grootte van zijn programma te weten te komen. 

Ook hier lijkt de remedie simpel: geef eerst een CLEAR... voor de PRINT 

Ook zouden we een COLORT willen zien voor de MODEO. 

Een REM in de eerste regel om programmanaam en maker aan te geven. 

Voor deze REM een GOSUB.... om de snelheid bepalende delen van het programma zo 
veel mogelijk naar voren te kunnen zetten. 

Nee, toch niet een GOTO іру een GOSUE omdat er in een subroutine geen CLEAR mag 
staan. 

Cursor zichtbaar of juist onzichtbaar maken enz.,Benz...... 





Frank H.Drui ff 


P.S. 1 Ik wilde nog even de aandacht vestigen op een cirkelroutine van Fred van 
Amerongen, die ik naar aanleiding van een vorig artikel kreeg toegezonden 


door Fred van Amerongen (knap!) 








REM INCREMENTAL CIRCLE GENERATION. 
COLORG O 5 10 15:MODE 4:MODE 6 
K1:23.0:R!-2140.0: XC=XMAX/2: YC=YMAX/2:REM ...CENTER 
Ri=R!-R!/10.O:REM ............. es RADIUS 
X1'!=R!:Y1!=0.Q:REM .............. STARTING POINT 
KISKII/XI! REM .................. INCREMENT 

FOR І=0 TO (2XPD) /K!:X2!sX1!4K!XY1!:Y2!-Y1!-K!XX2! 
P=X1!:D=Y1!:M=X2!:N=Y2!:DRAW P+XC,O+YC M-XC,N*YC 21 
X1!zX2!:Y1!zY2!:NEXT:IF R!'?2.0 GOTO 40 

END 
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program identification 


title 3 A/D CONVERSION HARD & SOFT 


author K.H.Kopp 


purpose 
comment 


K.H. Kopp 
Irenenstr 95 
4000 DUSSELDORF 


Sehr geehrte Clubfreunde, 


Um schallmessungen durchfuhren zu konnen habe ich eine 
schaltung mit dem ADW-IC ZN 427 von Ferranti entworfen und 
auf einer Veroboard lochrasterplatine aufgebaut. Diese 
schaltung passt in ein kunststoffgehause von 150x80x50 mm 
und ist met einem flachkabel an den DCE-bus angeschlossen. 
Mit dem beiliegenden demonstrationsprogramm sind +/- 15900 
abtastungen pro/sek moglich. Vielleicht giebt es einige 
clubmitglieder die einen schnellen 8 bit analog-digital 
wandler nachbauen wollen und eine geeignete und Preiswerte 
losung suchen. Darum mochte ich ihnen die schaltungsunter- 
lagen zur verfugung stellen. Moglicherweise sind mit dem 
ADW gerausch + sprachanalysen moglich mit deren hilfe man 
dit TALK funktion programmieren kan. 


Bei dem aufbau der schaltung und dem uberprufen der im 
datenblatt fig.3 timing diagram vorgegebenen steuerimpulse 
fur den ZN 427 habe ich den DAlpc als logikanalysator 
eingesetz. Dabei wird der B und C port als ausgang und der 
A port als eingang programmiert. Mit einem der ausgange 
wird vom BASIC aus ein langsamer takt erzeugt der anstelle 
des quarzes die schaltung treibt. Die ñ port eingange werden 
an den zu messenden punkten der schaltung angeklemmt und 
nach jeder pegelanderung den bildschirm gebracht. Der takt 
und die pegel werden dann im grafik mode als rechtecksignal 
auf den bildschirm gebracht. Alle eingange und ausgange 
sind mit dem CMOS IC 4050 gepufferd und die eingange mit 
dioden geschutzt. Mit dem beiliegenden programm wird der 
DAI als analysator betrieben. 


Viel spass beim nachbauen 
mit freundlichen grussen 


K.H. Kopp 
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MODE @:REM went à D W PROGRAMM Xi 
REM DAS MASCHINEN PROGRAMM STARTET DEN ADW 

REM UND LIEST DIE DATAEN VON PORT A IN DEN 

REM RAM VON #4000 BIS 45000 

REM DANN WERDEN DIE DATEN IN MODE 5 DARGESTELLT 
REM DIE AUFLOESUNG KANN MIT DER ADDITION IN 250 
REM VERAENDERT WERDEN 230 5Z=SZ+ 1 2 3 ...12 
DATA #00, #F 3, HFS, HES, HDS, #С5, HIE, #90, 1352, #03 
DATA #FE, HSE, HFF, #52, #02, #FE, #01, HOO, 410, 411 
DATA #00, #40, #00, #00, HSA, #00, HFE, #12, 413, HOB 
DATA #78, #B1, RCA, #25, #3F, #79, #32, #01, RFE, #03 
DATA #17, #3F, #00, #00, #01, HDI, HEL, #F1, HFD, HC? 
RESTORE 

FOR AZ=#35F00 TO #3F31 

READ ВА: РОКЕ AZ, BX 

NEXT AX:CURSOR 15,12:PRINT " DRUECKE SPACE TASTE FUER A D W " 
CURSOR 25,11:PRINT " DANN " 

CURSOR 18,1@:PRINT " 5 TASTE FUER NEUE A DW” 
IF BETC-32.0 THEN CALLM #3F00:GOTO 200 

GOTO 100 

MODE 5:5Z=#4000 

FOR AZ=0 TO XMAX 

DRAW АХ, РЕЕК (57) AZ, 128 15 

57=57+12: REM dJ3099])ieeraFLOESUNG DER GRAFIK 
NEXT AZ 

IF GETC=83 THEN GOTO 1:REM 3x9 DREUCKE TASTE 5 
GOTO 250 


PRINT CHR$ (12) 

PRINT TAB(20):" TAKTPEGEL PORT-C BIT-@ ":PRINT 

PRINT TAB(20);" PORT-A BIT-7 ":PRINT 

PRINT TAB{20)5" PORT-A BIT-& ":PRINT 

PRINT TAB{28)5" PORT-A  BIT-5 ":PRINT 

PRINT ТАВ(20);" PORT-A BIT-4 ":PRINT 

PRINT TAB(26)5" PORT-A BIT-3 ":PRINT 

PRINT TAB(20)3" PORT-A  BIT-2 ":PRINT 

PRINT TAB(26)5" PORT-A  BIT-1 ":PRINT 

PRINT TAB(20);" PORT-A BIT-0 ":PRINT 

FRINT " DRUECKE SPACE TASTE ":PRINT 

IF GETC« 232.0 THEN 40 

COLORG 19 16 10 18:MODE 5 

POKE #FEO3,#90:POKE #FE92,#FF:POKE #FE@1,#1:REM RT A,B,C PROBRAMMIERE! 
T%=128: V%=28 

FOR XZ-1 TO 320 STEP 16 

APX-PEEK (#FE00) : REM #33 PORT A ABFRAGEN 

FOR AX=1 TO 8 

IF APZ SHR AZ-1 ТАМ) 1-1 THEN GOSUB 1906:G0T0 148 

GOSUB 909 

NEXT A7 

DRAW XZ,227 X4,245 0 

IF TZ=128 THEN DRAW XX,245 XX*16,245 @:G0TO 170 

DRAW X4,227 XZ+16,227 9 

POKE #FE01,TX 

IF TZ=@ THEN TZ=128:GOTO 200 

IF TZ=128 THEN Т7=0 

NEXT XZ 

IF BETC-78 THEN MODE @:GOTO 60:REM 3xx4XDRUECKE TASTE N 
GOTO 500 

REM #3 SUBROTINE FUER НІ PEGEL 

IF SCRN(XZ,YZ*ñZ-7)=0 THEN DRAW ХХ, Y“#AL-7 XZ,YZ*ñZ-25 0 
DRAW XZ,YZ*AZ-25 XZ+16,YZ*ñnZ-25 0 

RETURN 

REM *#*#*#+#+#+#*xSUBROTINE FUER LOW PEGEL 

IF SCRN(X%, YA#AZ-25)=0 THEN DRAW X4, Y“#AL-25 XA, YLEAZ-T 9 
DRAW XZ,YZ*àZ-7 XZ+16, VARAL—7 0 


RETURN DAInamic 14 - 23. 
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MAGAZINE NEWS 





For the DAI fanatic, the last issues of most of the magazines 
were not too interesting. The regular column PATTERN which 
used to appear in Personal Computer World (UK), is not 
being continued. It’s a shame because it used to be a very 
good series filled with innovative ideas. 

The other magazines (British, French, Dutch, German, etc.) 

do not cover the DAI either. The DAINAMIC newsletter seems 
to be the only good source of information for the DAl-hacker. 
Sometimes it is interesting though to read other magazines, 
articles and programs even if these do not apply directly to 
our favorite computer. 


Two magazine issues of American magazines are particularly 
interesting for they contain a lot of articles about graphics. 
The first one is BYTE (November 1982) and the second 
one is CREATIVE COMPUTING (January 1983). 


The BYTE issue is interesting mainly for two articles 

one giving a fairly good general overview of what computer- 
graphics are all about (A Graphics Primer by Gregg Williams) 
The article is not really difficult or original though. 

A second article is more technical and deals with 3-D 
graphics on an Apple II. Programs in BASIC and Pascal 

are included. Some other articles talk about the various 
software packages that exist for ATARI, Apple II, etc. 
Other articles in the November issue of BYTE: 

~ Graphics with Logo 

~ Build a video digitizer 

- Computer graphics animation on the ATARI 

- Microvec: a D.1.Y vector display system 


The CREATIVE COMPUTING issue contains more articles 

but these tend to he shorter and more superficial than 

the BYTE articles. There is also a great number of evaluations 
of new soft- and hardware. 

The more interesting articles are: 

- Smooth graphics with pixel averaging 

- Stereo graphics: 3D computer graphics 

- The use of linked lists in computer graphics 

- Computer art 


Conclusion: both issues contain a lot of articles but 
the quality or originality of the articles is not always 
very good. 
If you are looking for a D.I.Y. article on video-digitiser 
you should take a look at РСМ (Janury 1983) page 168 -> 171. 
I do expect to see a greater number of articles on computer- 
graphics as a great number of the newer computers have 
(limited) graphic possibilities. 
New magazines 
I recently discovered a couple of new magazines. I have no 
more than a couple of issues so it's a bit early to say 
what 1 think about them. 
- Electronics and computing. 
This magazine tries to combine both hard- and saftware 
but allas! finds it also necessary to test every new 
computer on the market. If a new computer appears on the 
market, you can read about it in some 10 different 
magazines. Is this really necessary? 
price: 76 p per issue in the UK 
84 Bfr. in a bookstore in Belgium 
subscription: 9.56 pound (UK only} 
13.95 pound (overseas) 
address», Subscription dept. 40/42 OXFORD STREET 
DAVENTRY NORTHAMPTON NN11 4AD UK 








Recently I ran acroos a couple of interesting American 
magazines featuring a majority of articles on CP/M. 

These magazines could be more and more interesting for DAI 
owners as CP/M is to he released “real soon". 

One could also read in the last issue of the HCCN 

that the CP/M library will be converted to DAI-format. 


It would be wrong to think that CP/M is the nec plus ultra 
in operating systems. It is also false to think that 

it isn't worth a dime. In fact it's a good compromise 
between an expensive, elegant, slow and bulky operating 
system and na operating system at all. 

One of the greatest advantages of CP/M is that the software 
calls are well defined and compatible. So is most of the 
source and object code for various programs. 

Total compatibility does not exist however in the fast 
growing field of computers and so it happens that the 
medium is not standard if one is working with 5 1/4 7? 
disks. There is a standard for the 8 °° disks but this 
standard is growing older and older and more people 

are presently using the smaller disks. 

An advantage that CP/M has over any other D.S. is the 
great number of software packages that can run under 
CP/M. If you're looking for PASCAL, C, FORTRAN, LISP, 
COBOL or any other language interpreter or compiler 
there is quite a chance that you will find it in some 
CP/M library. 

For the serious DAI user this is a very strong point. 


But let's go back to the two magazines I mentioned 
earlier. ( one could go on and on indefinitely about 
the benefits and the horrors of CP/M !) 
1)- LIFELINES (THE SOFTWARE MAGAZINE) 
frequency 12 issues a year 
price Ф 3.90 for 1 issue 
subscription $ 520.00 for 12 issues (other countries 
than US, Can., Mex.) 


address: LIFELINES/ THE SOFTWARE MAGAZINE 
1651 Third Avenue 
New York, М.Ү. 18028 USA 


2)- MICROSYSTEMS (THE CP/M USERS’S JOURNAL) 
frequency 6 issues a year 
price $ 3.95 for 1 issue (294.00 Bf.'') 
subscription % 32.97 for 12 issue ( 2 years !) 


address: MICROSYSTEMS 
FÜ Box 1987 
Morristown. NJ 67966 usa 


Both magazines contain 
- evaluations of new programs and software packages 
- tutorials on CP/M, UNIX and other related subjects 
- practical program listings for CP/M machines (with source 

code and fully commented) 
- evaluation nf new hardware items for the 5190 bus (MICROSYSTEMS) 
- programming techniques 
Don't look for graphical Apple games in these magazines 
or don't expect to see homebrew hardware articles. 
The level is pretty high and so is the quality of both 
magazines. MICROSYSTEMS is aimed a little more towards 
a professional public whereas LIFELINES is equaly useful 
for the amateur or hacker. 
These two magazines are some of the best I have seen 
lately ! 
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1111 SUPER BARGAIN ft! tit 
ie! FOR SALE 1w! 
FE FE -JE FE -JE E Me MM EE MME IE -JE ME ME HE ME MH MM 


1)- I have a number of brandnew CASSETTE MECHANISMS for sale. 
These units were especially manufactured for REMOTE CONTROL. 
Each unit has 3 solenoids mounted on a base, to activate levers 
so as to enable FFW, FRW & RUN. A head and speed stabilised motor 
is also mounted. 
Shematics for driving the solenoids are included. The components 
for amplifying the signal will have to be designed by yourself 
or you can use an existing unit. A shematic for saturation recording 
is also included in the very low and unique price of 


1520, — Bf. or 160, — Fl. 
+ post & packing 


2)- Also for sale : a couple of modern Video Games with a 
Cassette mechanism as described above, processor board, 
power supply unit and transformer, video display unit, modulator 
Player keyboards (4 buttons) and many many more interesting 
components. Full set of shematics included !!! 
Perfect for the hardware hacker !!' These games use a lot of the 
modern IC’s . Most units are in working order and all are 
supplied with a couple of game-cassettes. 
Used to cost 7000,- Bf. Now for 


only ZOOO, — EF. (Z000. — БІ. > 
+ post & packing 


3- Must go !!! A large collection of magazines related to 
electronics and radio-controlled models. The number of items 
is too great even to give only a partial overview. 

Also some books (electronics, engineering and model-building) 
are offered for sale. All for a very low price and in perfect 
shape. 


For more information and availability please call 

Jos Schepens at 225» 052-21 67 43 X««« 
weekends only and not after 16 p.m. please !!!! 
You can order at the following address: 


Jos Schepens 

Sint Jorisgilde 53 
B-9336 DENDERMONDE 
BELGIUM 





Payments can be in any currency but preferably in Bfr. 
You can pay by cheque, by GIRO, with an international money 
order or by money transfer on the account number 001-0855656-08 
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CP/M? 
MICRO- 





€P/M® is a proprietary, general-pur- 
pose control program designed espe- 
cially for microcomputers which use the 
Intel 8080, 8085, or Zilog Z80® micro- 
processor. CP/M has been in existence 
for over five years and has undergone 
extensive field testing in thousands of 
installations. CP/M has evolved into a 
sophisticated interactive program de- 
velopment system also serving as the 
basis for programming languages, 
word-processing software and business 
applications packages. Basic CP/M fa- 
cilities include dynamic file manage- 
ment, fast assembler, general-purpose 
editor, and advanced debugger. Addi- 
tional software packages include an 
Intel-compatible macro assembler, 
symbolic debugger, text formatter 

and spooler. High-level languages 
and applications packages are 
available from Digital Research and 
independent suppliers. 


BDOS —The Basic Disk Operating Sys- 
tem supports a named file system with 
amaximum of sixteen logical drives. 
Any particular file can contain from 
zero to eight megabytes, with space 
dynamically allocated and released. 
System calls enable an application pro- 
gram to create, rename, delete, read, 
and write files on any active disk drive, 
with both sequential and relative-re- 
cord random access to data. The stan- 
dard CP/M system is distributed for 
operation with IBM soft-sectored disk- 
ettes, setup with default values of 64 
files per diskette, four diskette drives, 
and 240K bytes per drive. A field alter- 
ation manual gives procedures and pro- 
gram listings necessary to change these 
default values. Various peripheral de- 
vices are supported through the BDOS, 
including console, line printer, and pa- 
per or magnetic tape I/O device. With 
all these features, the BDOS uses less 
than 4K of memory. 
CCP —The Console Command Processor 
interacts with the user via the built-in 
commands: 
DIR—List all or selected directory 
entries. 
TYPE—Type the contents of an ASCII 
file at the console. 
REN— Rename a specific file. 
ERA—Erase a specific file or set of 
files. 
SAVE— Save the contents of memory 
on disk. 


USER— Change the active user 
number. 
In addition, the CCP allows CP/M sys- 
tem programs and user programs to be 
loaded and executed as though they 
were built-in commands. 


Utilities: 

PIP —The Peripheral Interchange Pro- 
gram provides file transfer between 
devices and disk files and performs var- 
ious reformatting and concatenation 
functions. Formatting options include 
parity-bit removal, case conversion, In- 
tel "hex" file validation, subfile extrac- 
tion, tab expansion, line number 
generation, and pagination. 

ED—The CP/M Text Editor allows crea- 
tion and modification of ASCII files 
using extensive context editing com- 
mands: string substitution, string 
search, insert, delete, and block move. 
ED allows text to be located by context, 
line number, or relative position with a 
macro command for making extensive 
text changes with a single command 
line. 
ASM- The CP/M Assembler is a fast 
8080 assembler using standard Intel 
mnemonics and pseudo operations 
with free-format input, conditional as- 
sembly, and assembly-line expressions. 


DDT—The CP/M Dynamic Debugging 
Tool is a powerful facility for 8080 pro- 
gram debugging; it contains an inte- 
gral assembler/disassembler module 
that lets users patch and display mem- 
ory in either assembler mnemonic or 
hexadecimal form. DDT allows the user 
to trace program execution with full 
register and status display. Instructions 
can be executed between breakpoints 
in real-time, or run fully monitored one 
instruction at a time. 


SUBMIT —The submit utility allows 
the user to batch together a parameter- 
ized group of prototype CP/M com- 
mands ina file, and then “submit” 
them to the operating system witha 
single command. 

STAT—The STAT utility alters and dis- 
plays I/O device and file status includ- 
ing free-space computations, status of 
on-line diskettes, and physical-to-logi- 
cal device assignment. 

LOAD —The LOAD utility converts Intel 
"hex" format to absolute binary, ready 
for direct load and execution in the 
CP/M environment. 

SYSGEN- The System Generation 
utility creates new CP/M system disk- 
éftes from existing diskettes for back-up 
purposes. 


MOVCPM- —MOVCPM provides re- 
generation of CP/M systems for various 
memory configurations and works in 
conjunction with SYSGEN to provide ad- 
ditional copies of CP/M. 


The complete CP/M operating system is 
distributed on an IBM-compatible disk- 
ette, initially set to operate directly on 
an Intel MDS-800 Microcomputer De- 
velopment System (with single-density 
drives). This standard CP/M system can 
be reconfigured to operate with any mi- 
crocomputer hardware with the follow- 
ing characteristics: 
€ intel 8080 or Zilog Z80 Central 
Processing Unit. 
€ At least 20K bytes of Read/Write main 
memory, contiguous from location 
zero. 
€ One tosixteen disc drives of up to 
eight megabytes capacity each. 
€ Some form of ASCII console device 
(normally a CRT). 
Many popular hardware manufactur- 
ers distribute CP/M with necessary de- 
vice-controller subroutines already 
installed for their equipment. The 
CP/M system is distributed in machine- 
code form only along with the complete 
documentation required. The software 
is licensed for use by the individual 
who purchases CP/M, and is registered 
and serialized to prevent unauthorized 
copying and distribution. The registered 
owner receives notice of updates and 
field changes to existing software. 


Documentation 

© CP/M 2.2 User's Guide—This manual 
gives an overview of CP/M 2.2 and in- 
troduces the features of this expanded 
operating system. 


@ An Introduction to CP/M Features and 
Facilities—This manual presents the or- 
ganization of the CP/M system, along 
with the forms of file references, built- 
in commands, and transient commands 
including operation of the editor (ED), 
assembler (ASM), debugger (DDT), pe- 
ripheral interchange program (PIP), and 
batch processor (SUBMIT). 


@ CP/M System Interface Guide—This 
manual gives the exact details for pro- 
gramming in the CP/M environment. 
All system calls are described, along 
with details of the CP/M file organiza- 
tion required to write programs which 
operate upon CP/M files. 

€ CP/M Assembler Guide, CP/M De- 
bugger Guide 
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THE BASGIC-FUNCTION 7 TAR? 


As you know from the DAIpc handbook, the TAB-function can be used to 
print data in columns. ñs long as the cursor is not past the given 
tab-position, it is moved (by printing additional spaces) to the 
particular TAB-position. 


But did you too find the TAB-function not working sometimes, 
appearently without any good reason? Well, here is the explanation. 
The story is a little bit different for the two Basic versions 
Vi.O and Vi.i. 


When performing the TAB-function, the DAI-Basic monitor checks the 
setting of the output switch DOUTC (#0131). When DOUTC-O (output to 
screen and RS232), the TAB-function works as expected. For all other 
values of DOUTC (1 = output to screen only: 2 = output to edit-buffer; 
> = user output routine), the TAB-function is NOT performed, but 
only one (1) additional space is printed '''!''! 


When your machine has a Basic version V1.1, you are a little bit 
luckier. There the TAB-function is performed correctly for DOUTC is 
0 (screen + RS5232) and 1 (screen only). 


Jan Boerrigter 


INITIALISATION DCE-PERIPHERALS 


In the power-on routine of the DAI, an initialisation procedure for 
the DCE-bus is available. Via this routine, control can be handed over 
to a peripheral which is connected to the DCE-interface. 


Somewhere in the power-on sequence, a jump is made to RÜM-bank 3 via 
RST1/OC. Via SEEOC is jumped to 3EF90. 


EF9O MVI A,:78 

EF92 STA :FEOS Set GIC cmd word for FA, PCH inputs, 
PB, PCL outputs. 

EF?S MYI A,:07 


EF97 STA :FEOS FC bit 3-1. 
EFSA MVI A,:01 
EFSC STA :FEO1 FE bit 1=1. 
EFSF MVI A,:01 
EFAI STA :FEOS PC bit 0=1. 
EFA4 LXI B,:1000 Load time counter. 
EFA7 LDA :FEOZ Get inputs from PA. 
EFAA ANI :20 PA Bit 5 only (Data present). 
EFAC JNZ :EFBS When the peripheral sets PAS=1, then a jump 
to the DCE input routine is made. 
EFAF DCX B Decrement time count. 
EFRO MOV А,В ) 
EFB1 DRñ C J Check if time count =Q. 
EFR2  JNZ :EFA7 Keep checking if PAS becomes i. 
EFBS MVI A,:EE When not, abort DCE input routine. 
EFR7 RET Back to power-on routine. 
* 
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When PAS=i, a jump is made to the input routine. Data is read from the 
peripheral and placed in the stackbottom. When ready, control is 
handed over to the (M.L.) program in the stackbottom. 


EFBB LXI D,:F8G0 Address stackbottom. 

EFBR MVI A,:05 

EFBD STA :FEOS PC bit 2-1 ¿(Request for data). 

EFCO LDA :FEOZ Get inputs from PC. 

EFCS ANI :80 PC bit 7 only (Data valid). 

EFCS JZ :EFCO Wait for PCY to become 1. 

EFC8 LDA :FE00 Get inputs PA. This must be hex-bytes with 
machine language instructions. 

EFCB STAX D Store inputs in stackbottom. 

EFCC INX D Points to next location in stack. 

EFCD MVI A,:04 

EFCF STA :FEOS FC bit 2=0. 

EFD2 LDA :FEOZ2 Get inputs from FC. 

EFDS АМТ :80 FC bit 7 only. 

EFD7  JNZ :EFDZ2 Wait for data valid signal to disappear. 

EFDA LDA :FEO2 Get inputs from PC. 

EFDD ANI :20 FC bit Š only. 

EFDF  JNZ :EFBE Continue reading inputs from Pñ (and store 


them on stack) as long as FCS=1. 
EFEZ MVI A,:06 $ 
EFE4 STA :FEO2 Set FCS and FC1=1, PCrest =O 

[In ROM, *FESE* is found; this is decoded 
as "FEOZ']. 





EFE7 LDA :FEO2. Get inputs from PC. 

EFEA ANI :20 PC bit 5 only. 

EFEC JZ :EFE7 Wait for PC5=i. 

EFEF JMP :F300 Goto the routine loaded into the stack” 
bottom. 


This routine must end with a RET instruction! 


After performing the routine loaded from the peripheral, the DAI 
continues with the normal power-on sequence. 


For using the DCE-bus, see also the article in the DAInamic News— 
letter nr.1 of September 1980 and the Intel data sheets of the 
8255 Programmable Peripheral Interface. 

When using the power-on DCE initialisation routine, take good care 
of the several handshake signals on ports Pñ, PR and PC. 


Jan Boerrigter 


DAlnamic MEETING : 


on 9th April 1983 10.00 - 18.00 Hr 
in TONGELSBOS Bosstr. 2 3180 WESTERLO 


DAInamic 14 - 29 





DAlnamic INFO 


Cher membre , 


Ce premier DAInamic INFO vous propose quelques traductions (resumés) des 
articles qui se trouvent dans le NO 12 de la revue. Ces traductions ne 
forment pas toujours un texte cohérents, Il faut alors s’aider des exemples et 
schémas de la revue. Je tien a remercier toute l'équipe qui nous a perais de 
mettre au point ce numéro. Plus particulierement Mr Vim Van Dalfsen pour les 
traductions Flamands-Francais et Mr Wilfried Hermans pour le soutient qu'il 
apporte au club. 

DAInamiquement votre 

Cédric Dufour 


EFFICIENT CIRCLE DRAWING (Р258/271) 
Dans cet article, plusieurs solutions iNusérotées ici de 1 a 14) vous sont proposées pour tracer un cercle de rayon 100 centre suri'écran, 

Nous résuserons ici les caracteristiques de chaque aéthode. 
Ex 1 : C'est la aéthode trivial, Le pas d'incrésent est de | degré soit p1/180. Le cercle n'est pas continue 
Ex 2 : Ici le pas est de 2tpi/200tpi. Il a été réduit pour avoir le вахівиа de points sans toutefois tracer deux fois le абве 

(200tpi= Circonférence du cercle), L'utilisation d'une variable (R) a la place d'une constante (100) accelere l'execution, 
Ex J : On ne vas plus faire chercher au DA! pres de 500 fois les valeurs X et ҮМАХ 
Ex 4 ; L'utilisation d'entiers pour certaines variables va encore accelerer execution. pipi se calcule plus vite que 2. 0tpi 
Ex 3: (Ligne 20 il faut lire :YsR' SINIT) ) Pour ne plus calculer 628 fois le SIN et le COS utilisons une syaetrie du dessin. 
Ex 6: (Ligne 30 seulement) Ici avec les deux syaetries axiales. I] faut alors disinuer la boucle de la ligne 20 a pi/2. C'est vraisent 

plus rapide que notre solution triviale. 
Ex 7 : Essais pour utiliser les sysetries des bissectrices (diagonales).Ca va un peu plus vite et c'est beaucoup plus cospliqué '' 
Ex 8 : Une autre équation du cercle est It eY1Y-R1R. (X & Y etant les coordonées d'un point du cercle, R le rayon) 

Mais ici nous n'avons plus que deux points Y pour un point X il aanque donc des points. 
Ex 9/10 : La partie supérieur etant correct on essaie, par sysetries, les autres cotés. RIR est plus rapide que 

R12 et en plus on peut aettre des nombres négatifs, 
Ex 11 : (Mettez plutot R que R!) Pour dessiner plusieurs cercles il sera interresant de aettre les valeurs des SIN & COS dans un tableau. 
Le PRINT P est superflu. Il est plus rapide d'utiliser deux tableau a deux disensions qu'un seul a trois disensions. 
Ex 12 : On reprend ici l'idée des sysetries (11 serait possible de aettre les valeurs des SIN et COS dans des lignes de DATAS) 
Ex 13 : Voici enfin une séthode vraiment rapide, Nous tracons le cercle par une suite de petits traits. 
Ex 14 : Cosse еп 13 sais combine avec un tableau. C'est plus difficile à prograsser ' 
I] existe encore bien des aseliorations à apporter. (L'auteur vous laisse travailler maintenant ''} 
















(P264-265) 





HOW TO EXTEND THE DAI BASIC 





Il n’est à priori pas simple de rajouter des commandes au BASIC. Une idée de 
solution est ici propose. (C’est la methode employée par MEMOCOM pour le MDCR) 
(La partie en langage machine sera ici mise en M.E.V.) 

Les nouvelles commandes auront la forme suivante : 










10 CALLM (TESTREM) : REM COUNT 


TESTREM est un programme en langage machine qui se charge de regarder si 
l'instruction qui suit le CALLM est un REM. Le code du REM est # A? et la 
paire de registres BC 'pointe' cette donnée. Si il y a un REM alors TESTREM 

va regarder si la commande qui suit est dans sa table. (Table qui peut etre de 
la forme : 





Longueuri1,COUNT,Adressel, Lonqueur2,Datas,Adresse2, ... ... 00=fin) 


Si elle y est alors il execute cette commande (l'adresse est aussi 
donnée par la table) puis revient au BASIC, sinon il retourne directement au 
BASIC. 
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Organisation de la mémoire d’écran (p 256) logiciels 
















(1) mode graphique (2) mode mixte : Cassetes AUDIO 
schéma gauche MODE1 schéma droit MODEIA (p257) 


Ai : En tete Bi En tête 


CENT IPENE 85 Frs 


A2 : Donnés graph. B2 : Donnés (Partie B de A2) DRIVER 85 Frs 
A (partie 1) B3 : Intermédiaire GAMES 8 120 Frs 
B (partie 2) BA : Caractères TOOLKIT 3 
A3 : Queu B5 : Queu DAInatexte 
Bó : Archivage(Partie A de A2) 


(ajouter 15 Frs pour 
les cassettes DCR ) 





En passant d’un mode (1) a un mode (2), la partie A de 
A2 est mise en Bó et vice-versa. En cote des schémas 
un Offset a #BFFF est porté. Dans la colonne separée 


les pointeurs en MEV contenant les données d'écran matériels 


SNG 325 Frs 
Caractéres 150 Frs 












- 512 x 244 - (p 261) 





Vous obtiendrez, avec un CALLM #300 le mode 7 (ou 8). Littérature 
L'écran et ses pointeurs étant initialisés, vous 
pourrez alors utiliser les commandes BASIC de dessin 
(DRAW, DOT, FILL ...) 

Le mode MIXTE (4 lignes de texte) n’est pas possible 


Pour avoir du texte il vous faut revenir en mode 0 







DAI Schémas 120 Frs 

.. URGENT 125 Frs 
the best of DAInamic 
(flamand) 90 Frs 








| CONVERSION APPLE - ATARI - DAI (p 289) 


En traduisant les programmes d’APPLE & d'ATARI pour le DAI vous vous trouvez 
confronté a quelques problèmes. Vous romarquez entre autres que l'origine ces 
graphiques se situe en haut et à gauche de l'écran. 

Ex : (p. 289) trois solutions proposées pour corriger ce 'défaut'... 
L'avantage de la troisiéme solution est que vous pouvez presque copier mot 
pour mot le programme (Apres l'initialisation de la ligne 5). 

Fonctionnement : Dans la solution NO 3 la partie en langage machine (lm) 
se substitue a la soustraction de la 2éme solution. ( 179-Y dans l'exemple ). 
Cela est possible car chaque commande BASIC en relation avec l'écran utilise 
la combinaison : RST 5 + DONNÉE Le RST 5 effectue en fait un CALL #28. En 
#28 se trouve la routine d'interruption 5 (Cf DAInamic NO 11 p180/181) celle- 
ci utilise un vecteur de saut qui se trouve en #6C/4D. Em mettant #300 dans 
#6C/6D a chaque ordre d'écran un call s'effectuera vers #300, avec dans les 
registres les valeurs a utiliser. Programme p290: En #300 une partie de la MEM 
a ete copiee, ce qui permettra un retour sans encombres au programme original. 
En #313 le programme vérifie qu'il a à faire à une fonction graphique. Si ce 
n'est pas le cas il retourne en MEM. Si il s'agit d'une fonction alors Y 
est soustrait à la valeur qui se trouve en #2FF.Aprés quoi on retourne en MEM, 

le BASIC n'ayant rien remarqué d'anormal ' Aprés avoir tapé le programme en lm 
il faut que vous adaptiez le pointeur BASIC ( #29B/C ). Apres cela vous 
retournez en BASIC et faites un NEW ou un CLEAR $4100. 

POKE #6C,0 :POKE #6р, 5 Met en route le programme. 
POKE #6C,#FD:POKE #6D,#C6 Revient en mode normal. 
La valeur à laquelle est retranché Y peut etre POKEe en #2FF. 

{remarque :sur APPLE YMAX=39 ou 179 en haute résolution) 























Enregistrement en langage machine (UT) 
Si en utilitaire vous tapez READ (au lieu de R) votre DAI essaiera quand meme 


de lire un programme! Ceci est du au fait que #EAD est une valeur hexadecimal 
licite. Le DAI lira le programme et le positionnera #EAD plus loin que 
son adresse initiale (Offset) 
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SIMULATION DE ’REFT” EN BASIC 


Dans la plupart des jeux d’actions, qui utilisent le 
clavier comme interface d’entree, la touche REFT doit 
etre pressee si l'on veut avoir un mouvement continu. 
Four eviter cet inconvenient, il est bien sur possible de 
faire sa propre scrutation du clavier en langage machine. 
Mais il y a aussi une solution simple en BASIC. 


Lors d'une scrutation du clavier, les résultats du 

balayage precedent sont ranges aux adresses 
# 2B1 а # 2B8 

Résultats qui sont comparés avec ceux du balayage en cours, 
une touche n’etant prise en compte que si les résultats 
different.Il faut donc imposer une difference entre ces deux 
scrutations, simplement en changeant les données du balayage 
précédent. | 


En ajoutant a votre programme une ligne telle que : 


FOR IX = #2B1 TO #2B8 : POKE 17,0 : NEXT 


Une touche pourra etre prise plusieurs fois en compte 
imitant ainsi l’action de REPT . 


C. DUFOUR 





жож HK жж IK GE CE OK c CE OK HE KK OK SR OK XK MK K NC IK f ж 


* * 
ж DAT Po FIRE MANUEL * 
ж ж 


жож OK OK ж ck ck EK жж OKO ok SK OK KA OK OK OK OK 3E Kk OK жж ж 


The "DAI pc FIRMWARE MANUAL? can be obtained from: "Micro 
Service", Fabritiusstr.15, 6174 RG Sweikhuizen, The Netherlands. 


It can be ordered by transferring Hfl. 68.- to bankaccount 
15.05.78.754 of "Micro Service’ with the RABO-bank, Geleen, NL 
or by sending an Eurocheque to the above address. 


When other cheques than Eurocheques are used, Hf1.75.- has to 
be paid due to transfer provision. 


Nederlandse clubleden kunnen ook bestellen door overmaking van 
Hf1.68.— via postgirorekening 1037671 van de RABO-bank te 
Geleen ten gunste van bovenvermeld bankrekeningnummer . 
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HOW TO DUPLICATE LINES OF PROGRAM : 


This trick comes from Roberto & Marco Bulgarelli, Rapallo 
(Genova-italy), and it is useful when we have to write several lines 
equal between them apart from a little detail. 


1) Edit the line 


2) Change the number of line 
(be careful do not use number of line already existent) 


- 3) Tape "BREAK" twice 


4) Poke 309,2 


5) List : the line is duplicated ! 


| am waiting for your answer, thank for wishes, | wish a 
Happy New Year to the whole DAlnamic. 


Yours faithfully, 
Marco Di Martino 


Merc № Metis 





This is the first (small) contribution of DAInamic-ITALY. 
More articles and programs will follow, cause we have a 
lot of new Italian members. 
Members from Italy can send their contributions to the 
following address 

MARCO DI MARTINO 

Casella Postale 31 

20090 LINATE-AEROPORTO 

MILANO-ITALY 
Marco will eventual arrange translations and send them to 


us for publications. 


A WARM WELCOME TO ALL ITALIAN DAI-USERS ! 
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MEMOCOM DCR REVIEW by Dave Atherton ZS 


The Memocom Mini-Digital Cassette Recorder (MDCR-D? had been 
advertised and featured in Dälnamic several times in the last 
few months, and as I did not expect to be able to afford discs, 
I decided to buy one. Also the slight experience I have had 

of DAI discs left no doubt in my mind that the Memocom was 
preferable for a home user such as myself. 


The unit arrived, being a small (approx 12cm) cube with a 
microcassette door at the front and a DOE bus at the back. 
The drive is a standard Philips mechanism, and Memocom's own 
OEM bit is a small card on the inside of the rear plate. Also 
supplied was a flat cable with connectors, a manual and an 
EPROM on a card, socketed at the edge. The EPROM card slots 
onto the 'X-bus^ on the DAI (no soldering required) and the 
flat cable is then inserted to connect the unit to the DAI 
DEE bus. This took about 5 minutes and presents no problems 


Software — The EPROM is 2E long, and fills the empty 

space between :FOOG and :F7FF. The contents can be examined 
by the monitor display command in the normal way. Once 
installed, the system boots to operating with the DCR for 
the LOAD, SAVE, CHECK, R & W commands. There are also the 
following new high-level commands: i 


REWIND - Rewinds to tape start 
REWIND n — Rewinds 7 files 
SEIP — Fast forward to end of ‘used’ tape 
SKIF n — Fast forward 5 files 
CASSETTE n: — Switch to audio cassette n: 
or n-O none, n-3 both 
CASSETTE — Switch to audio cassette 1 
DCR n - Switch to BER n (logically 4 allowed) 
DELETE — Wipe tape from present pos. to end 
LAST — Mark previous file as last one 
LOOK - Read £& print file name, then rewind 
to start of that file 
VERIFY — As СНЕСЕ for previous file only 


The commands REWIND, CASSETTE, DELETE and VERIFY can be 
abbreviated to their first three characters. The number n 

can be any ASCII number between © and 9, but not a variable. 
The LAST command works by erasing a few inches of tape. This 
is because the system does not allow you to go forward and 
leave gaps of unused tape. (You can of course do this manually) 
sa the LAST mark effectively deletes from recognition all 
further files on tape. When loading, say a specific named 

file (Type О 1 or 2) the system starts moving the tape forward 
until it finds the required file. If when the free tape is | 
reached, the file has not been found, then an automatic rewind 
t= the start is performed, and the search continues. Therefore 
it is possible to load files which have already been passed 


contactaddress U.K. : Dave Atherton 
16 Douglas Street 


ATHERTON MANCHESTER M29 9FB 
U.K. tel : 44-942 876210 
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MEMOCOM DER REVIEW contd. 


on the tape. Thus the system does have a "random acce 
facility. The drawback however is that in the worst s 
where the full tape contained files, and you had just pa 
the file you required, the access time would be Z x 93 = 
It should be noted that the fast forward and reverse spe 


are the same as the loading speed, approx 11 3i.n.s. 


i 


rtan 
pu D 
ш 
fi Wm r+ 
hou dq or 
roo 


n. 


= 


All the commands mentioned above can be entered and execute 

in immediate mode. However, as probably know, the DAI BASIC 

is encoded on entry and therefore it is not possible to 

enter the commands as they stand in BASIC program lines. To 
get round this problem, Memocom have devised an ingenious 
routine that reads and executes REM statements. The entrynaint 
for this routine is :F000 and therefore say, to skip 3 files 
the program line wouid be: 

100 CALLM #FOCO:REM SKIF 3 files 
Anything extra in the REM is ignored i 
used, À cassette/DCR switch could be: 

100 PRINT "Press Ë for CASS. or D for DER” 

110 GY=GETC:IF GZX£67 OR 64:68 GOTO 110 

120 IF 84-67 THEN CALLM #FO00:REM CAS 

130 IF 6Z=68 THEN CALLM SFOOO:REM DER 
Another feature of the Memocom software is error-tranoging on 
1/0. The normal LOAD errors 0-5 exist and there are two saving 
errors 1 & 2 indicating "tape door opened’ and "end of tape" 
respectively. Rather than crash, the error-trapper can be 
+ initialised by CALLM #FO03,N% where NX is any integer variable 
| Then when an error occurs, the variable NX will be loaded with 
| the number of the error. A useful operation of this is 
* described in the manual, viz several attempts to LOAD tiles 

i.e: 100 CALLM #FO03, ERROR 

110 TRIES-O 

120 LOADA At "NAME" 

130 TRIES=TRIES+1 
| 140 IF ERROR=0 PR TRIES>4 BOTO 170 
| 150 CALLM #FOGO:REM REW 
i 150 GOTO 120 
| 170 REM File has loaded OF or 4 attempts have failed 


f a ‘number’ command iz 





This program does not distinguish between the errors but 
course a program could if desired, if only to print mess 
such as "CHECKSUM ERROR" etc. 


+ 
= 


© Ü 


ul 


= =-= 


For assembly language programmers, the manual, although 
short (20 pages) provides the addresses ta call for each 
software routine. Also the system variable addresses (below 
:2EC are also all provided. The ROM has a jump table like 
the RST calls to paged ROM, and the calls are :FODG to :FOlE 
at 3 hyte intervals of course. I have done a couple of short 
assembled routines to test this, and everything worked tine. 
The ROPEN, RBLE etc vectors are loaded with EPROM addresses 
when the system boots, zo special R/W routines written for 
cassette will work provided they call those vectors and nat 
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MEMOCOM DCR REVIEW contd. 


> 





the dir addresses. For hardware geniuses it may even 
Be poss use the custom software te drive their own 
periohers hrough the DCE Bus. tan EPROM Burner”). Also 
the table for the CALLM 4FOOGO routines is pointed to by 
:2?7/8 so if this were altered other new words would be a 
possibility. See Mr Boerrigters article on this in DüInamic 
12. p.268. I have not had a chance to experiment with this 
yet, but if I do, I will report the results. If terribly 
successful 1711 submit them to DAInamic for larger circulation) 
The system contains a facility for auto-start of programs. 
When the DAI is hard reset, as part of the reset routine, it 
checks the DER, and if it finds a write-disabled ‘i.e. plug 


ette in the drive, rewinds it. It then attempts 
to load the first file. If and only if this is a type i file 
lied "USER" it loads it without offset, and commences 
ecution from the first address loaded. If the cassette is 
sent. or write-enabled, or the first file is not Type 1 or 
not called "USER" then no load takes place. Of course the 
first file can be a routine to lead a BASIC Program, and 
indeed Mr De Raedt has written one - see DAInamic 12. . 283. 


I have had a couple of problems with this procedure however, 
both booting the assembler direct and loading the Word 
Processor using Mr De Raedt's program. I think they are 
something to do with stack levels. However, this facility 
has great possibilities in user-friendliness, in that all a 
user has to do is put a tape into the drive and switch on, 
the software on the tape giving operating instructions etc. 


Finally. the command list above shows that logically four 
DORs may co-exist each being software selectable. The number 
of the DCR is determined by DIL switches inside the case 
Memocom supply cables with multi-DCE bus connectors for this 
Purpose and again here there are possibilities. With two DCRs 
t would be possible to have a read tape and a write tape. 
and at the end of a job, the latter holds the up-to-dat 
ecords, and becomes the read tape for future jobs. The ald 
ead tape would then be erased 


Hoe "| 


4 E 


The Memocom MDCR-D is manufactured by Memocom Computer — 
nn Systems BV, Postbus 2294, 3000 CX, Rotterdam. 

Tel: O10—-148284. The TOS software is copyrighted to them. 

The system is available in the LE from Codified Computer 
Systems, 255 Archway Road, London Né SBS. Tel: 01-340 458? 
Price (October 1982) £175.00 + VAT + Carriage. The tapes used 
are Philips Certified Digital which are £23.50 + VAT for a 
box of é from Codified. Each holds 464K on each side. These 
are quite dear and I have used dictation machine cassettes 
which are about £2.00 each but they are prone to errors 
especially when they have been recorded on several times. 

The digital tapes are guaranteed to have an error rate of 
less than 1 bit in 100 million, so these can be treated as 
faultless. I think the Memocom is good value and provides an 
economical and powerful substitute for discs, for the home user. 
1 also think that careful study of the firmware will provide 
some very useful routines. 
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ГА LL 
EXPLANATION OF THE FULL 32 DISPLAY MODES AND 136 COLOURS 7 


by Louis Gidney. 114 Houghton St Giles, Walsingham Norfoik 


The display mode of every line cn screen is individually 
controllable and can be put into one of 32 available modes. 
Lines in different modes can be freely intermixed to give an 
enormous number of richly coloured screen formats. In many of 
these formats it is possible to make wide-scale changes on the 
screen by altering just one byte. For example it is quite 

easy to construct pictures in which the colours of SO or more 
complicated shapes can be individually switched by single 
bytes between the 16 colours (or in certain circumstances 

155 mixed colours). These many formats give rise to an 
assortment of animation techniques for, games, re-configurable 
patterns to accompany music, etc. which can give fast-moving 
results even when controlled by BASIC programs. 


It is possible to put character-mode lines (in 4 widths) 

in the middle of graphics and although a single line cannot 

be in two modes at the same time (eg: chars and graphics?, it 
is possible to freely superimpose characters (including 
user-defined characters up to 16x14 dots or bigger?) on graphics 
in any position (even overlapping) using the FST facility. 


The height of any line can be chosen to be any even number 

of TV raster scans from 2 to 32. (A line of 2 scans is the 
minimum controllable line). If the height of all the lines on 
the screen is set to 2 scans, the total number of controllable 


lines is 625/2 = 312 (260 on US TV’s). If all the lines are 
made 32 scans high, the number of lines over the full raster 
height becomes 625/32 = 20 (17 on US TV's}. In practice, 


unless a TV is modified, the edges of the raster are hidden 
by the bezel, so 256 is a practical number of lines to use. 


The "mode" of a line is fully specified, regardless af its 
height, by a combination of four attributes: 

a). The number of colours desired (16 / or any 4 of i6) 

b). Characters / or Graphics. 

c). Horizontal resolution. {Low/ Medium/ High/ or Very High 

ie 88,176,352 or 528 dots per raster scan-width 
or 11, 22, 44, or 66 characters.) 

d). Normal / or "Unit" Mode. In normal mode the display 
across one line varies along the line, and is controlled 
by many bytes. “Unit mode" makes it possible for two 
bytes to control a character or a horizontal pattern of 
8 dots (vertical bars if the line-height is increased) 
which is repeated 11,22,44 or 66 times along a line. 
This line-mode has many uses. One example is the 
compacting of pictures in which horizontal uniformity 

` or repetition occurs. For example a strip of uniformly 
blue sky 52 raster scans high in high resolution would 
normally be controlled by 90x16-1440 bytes. Compacted 
to a unit-mode line 32 scans high it can be controlled 
by only 4 bytes. (In some conditions only twe!). 
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EXPLANATION OF THE FULL 32 DISPLAY MODES AND 136 COLOURS contd. 





X7 
Here is a chart which summarises the relevant bits in the < 
iine control byte high nibble. 


LINE CONTROL BYTE. High Nibble (Bits 7,6,5,4) 


i i Н Bits 5,4 i 
H HMODE OF LINE i Bits I-------------- H 
Н 1 7,60 : OO O1 io 11 : 
' 4 Colour Graphics i ОО |: o i 2 3 i 
H 4 Colour Characters Н oj i 4 a & 7 H 
H 16 Colour Graphics H iO | 8 > б B : 
i 14 Colour Characters H 11 H C D E F H 


Horizontal Resolution - LOW MED HI V.HI 


i Dots per Full Raster Width — i 88 174 352 528 
' Dots used by BASIC — 72 1460 226 480 
i 11 22 44 66 
i Characters over BASIC Width — 9 20 42 60 


Characters per Full Raster Width — i 
Interval Line Ctl Bytes Graphics — ! 234 46 со 134 


mme me nm мш жш шы =“ w 


interval Line Ctl Bytes Characts — 26 48 о 154 


To set any given line to the desired mode from the above table 
poke the high nibble of the line control byte with the correct 
hex digit from the matrix, and the low nibble with the number 
of scans of the TV screen that are desired for that line. The 
number of scans can be between i and 14. (i.e O=1 scan, :F=14) 


So where are the line control bytes. Well, the first one is 
always :BFEF, for the top line on screen. If you peek this you 
will see that it contains :7ñ i.e 4 colour characters, and 11 
(not 10) scans. If you are not sure what scans are, poke :BFEF 
with :73 (4 scans) while the top line is full of text. Now the 
subsequent line control bytes are harder to find. Working down 
the screen from the top, take each line control byte, test 
both the resolution and whether it is Graphics or Characters 
then subtract the appropriate figure (last two lines on chart) 
plus one (for the line colour byte? to find the new line 
control byte. Sa thats how the control bytes work. In Part 2 
of this article I will explain how the line colour byte works 
and show how 155 different colours can be generated on screen 
simultaneously. 


Louis Gidney 


38 - DAInamic 14 





